* lisp/progmodes/grep.el (grep-mode): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cb787cb32060d2a6059d96dd20098784ef77570..8f8d09d0bdbe1a71fa6159b21c6bfd925fc6abac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/grep.el (grep-mode): Fix last change (bug#8684).
+
 2011-05-21  Glenn Morris  <rgm@gnu.org>
 
        * files.el (hack-local-variables-prop-line, hack-local-variables):

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 3b819a149b2958a2d66147f6b46b185a0dfac8fc..04b54b1d662520d3a308184b584d87134450b235 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -698,7 +698,9 @@ This function is called from `compilation-filter-hook'."
        grep-hit-face)
   (set (make-local-variable 'compilation-error-regexp-alist)
        grep-regexp-alist)
-  (set (make-local-variable 'compilation-directory-matcher) nil)
+  ;; compilation-directory-matcher can't be nil, so we set it to a regexp that
+  ;; can never match.
+  (set (make-local-variable 'compilation-directory-matcher) "\\`a\\`")
   (set (make-local-variable 'compilation-process-setup-function)
        'grep-process-setup)
   (set (make-local-variable 'compilation-disable-input) t)